﻿'//DotNetNuke - http://www.dotnetnuke.com
'// Copyright (c) 2002-2010
'// by DotNetNuke Corporation
'//
'// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
'// documentation files (the "Software"), to deal in the Software without restriction, including without limitation
'// the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and
'// to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'//
'// The above copyright notice and this permission notice shall be included in all copies or substantial portions
'// of the Software.
'//
'// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
'// TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
'// THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
'// CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
'// DEALINGS IN THE SOFTWARE.


Imports DotNetNuke.Entities.Modules

    Public Class dnnsimplearticleModuleBase
    Inherits PortalModuleBase

    Public ReadOnly Property ArticleId() As Integer
        Get
            Dim qs = Request.QueryString("aid")
            If qs IsNot Nothing Then
                Return Convert.ToInt32(qs)
            End If
            Return -1
        End Get
    End Property

    Public ReadOnly Property PageNumber() As Integer
        Get
            Dim qs = Request.QueryString("p")
            If qs IsNot Nothing Then
                Return Convert.ToInt32(qs)
            End If
            Return 0
        End Get
    End Property

    Public Property PageSize() As Integer
        Get
            If Settings.Contains("PageSize") Then
                Return Convert.ToInt32(Settings("PageSize"))
            End If
            Return 10
        End Get
        Set(ByVal value As Integer)
            Dim mc = New ModuleController()
            mc.UpdateModuleSetting(ModuleId, "PageSize", value.ToString())
        End Set
    End Property

    Public Function GetArticleLink(ByVal articleId As String) As String
        Return Common.Globals.NavigateURL(TabId, [String].Empty, "aid=" + articleId)
    End Function

End Class

